object NewStudentForm: TNewStudentForm Left = 248 Top = 104 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'New Student Info' ClientHeight = 394 ClientWidth = 575 Color = clSilver Font.Color = clBlack Font.Height = -19 Font.Name = 'Arial' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter Scaled = False ShowHint = True OnCreate = FormOnCreate TextHeight = 22 object Label1: TLabel Left = 63 Top = 12 Width = 425 Height = 84 Alignment = taCenter Caption = 'The information below will be used to help keep track of your pr' + 'ogress. The Student Number is optional but is useful in classro' + 'oms where more than one person uses this program.' Font.Color = clBlack Font.Height = -18 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Panel1: TPanel Left = 28 Top = 111 Width = 512 Height = 217 BevelInner = bvRaised Color = clSilver TabOrder = 0 object Label2: TLabel Left = 65 Top = 36 Width = 117 Height = 26 Hint = 'Your first name, 15 characters max' Alignment = taRightJustify Caption = 'First Name:' Color = clSilver Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label3: TLabel Left = 66 Top = 78 Width = 116 Height = 26 Hint = 'Your last name, 25 characters max' Alignment = taRightJustify Caption = 'Last Name:' Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 91 Top = 157 Width = 174 Height = 26 Hint = 'Numeric digits only, for classroom use (optional)' Alignment = taRightJustify Caption = 'Student Number:' Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 3 Top = 129 Width = 506 Height = 6 Shape = bsTopLine Style = bsRaised end object OvcPfFirstName: TOvcPictureField Left = 198 Top = 31 Width = 146 Height = 31 Cursor = crIBeam Hint = 'Your first name, 15 characters max' AutoSelect = False CaretOvr.Shape = csBlock CaretToEnd = False Color = clWhite Controller = OvcController1 DisabledColors.BackColor = clWindow DisabledColors.TextColor = clGrayText Epoch = 0 ErrorColors.BackColor = clRed ErrorColors.TextColor = clBlack Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [] HighlightColors.BackColor = clHighlight HighlightColors.TextColor = clHighlightText MaxLength = 15 ParentFont = False PictureMask = 'xxxxxxxxxxxxxxx'} RangeLow = {00000000000000000000} end end object BitBtnSave: TBitBtn Left = 142 Top = 341 Width = 136 Height = 41 Hint = 'Click here to save your information for future use' Caption = 'Save' Default = True Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = ButtonOnClick OnMouseDown = ButtonOnMouseDown Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333833333 33333333333333333333333330833333333333333F333333333333330A083333 33333333F8F3333333333333AA0883333333333388F3333333333330AAA08333 3333333F888F33333333330AAAA08833333333F8888F33333333330AAAAA0833 333333F88888F333333330AAFFAA088333333F880088F3333333FAFF33AAA083 3333080033888F333333FF3333FAA0883333003333088F3333333333333FAA08 83333333333088F3333333333333FAA0883333333333088F3333333333333FAA 0883333333333088F3333333333333FAA0883333333333088F3333333333333F AA0833333333333088F33333333333333FF33333333333333003} NumGlyphs = 2 end object BitBtnCancel: TBitBtn Left = 298 Top = 341 Width = 136 Height = 41 Hint = 'Click here to leave the student information as "unknown"' Cancel = True Caption = 'Cancel' Font.Color = clBlack Font.Height = -22 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 2 ParentFont = False TabOrder = 2 OnClick = ButtonOnClick OnMouseDown = ButtonOnMouseDown Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 6666666666666666666666886666666886666666666666666666610886666610 8866661966666661966669108866611106666011966666111966691108861111 6666660119666111166666911088111666666601196611116666669111011166 6666666011911116666666691111186666666666011111666666666691110886 6666666660111966666666669111108666666666601119666666666691111088 6666666601111196666666661109110886666666011601196666666611669110 8866666611666011966666611666691108666666116666011966669166666691 1666666116666660196666966666666966666600666666660666} NumGlyphs = 2 end object OvcController1: TOvcController EntryCommands.TableList = ( 'Default' True () 'WordStar' False () 'Grid' False ()) Left = 542 Top = 362 end end